home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Cream of the Crop 22
/
Cream of the Crop 22.iso
/
games
/
mutnt121.zip
/
MUTEDIT.WCX
(
.txt
)
< prev
next >
Wrap
Wildcat! WCX
|
1996-06-17
|
32KB
|
2,037 lines
'! Decompiled with wccNosy version 4.20f (freeware)
'! Input File: in.wcx 31583 bytes 11/17/122 02:22:48am
'! Code Segment Size :20657 bytes
'! Data Segment Size :6016 bytes
'! String Segment Size:10926 bytes
'! Compiled with WCC version ? 019C017B
Type Type29
i0 As Integer
i2 As Integer
i4 As Integer
i6 As Integer
End Type
Type Type28
s0 As String*30
s30 As String*18
s48 As String*3
l51 As Long
s55 As String*1
i56 As Integer
i58 As Integer
i60 As Integer
Filler62(1 To 32) As Byte
i94 As Integer
i96 As Integer
l98 As Long
l102 As Long
b106 As Byte
i107 As Integer
b109 As Byte
s110 As String*15
b125 As Byte
b126 As Byte
b127 As Byte
b128 As Byte
s129 As String*1
s130 As String*20
s150 As String*20
s170 As String*20
b190 As Byte
s191 As String*30
b221 As Byte
b222 As Byte
b223 As Byte
b224 As Byte
b225 As Byte
b226 As Byte
b227 As Byte
b228 As Byte
b229 As Byte
b230 As Byte
b231 As Byte
b232 As Byte
s233 As String*1
b234 As Byte
o235 As Boolean
Filler236(1 To 1) As Byte
b237 As Byte
b238 As Byte
b239 As Byte
Filler240(1 To 1) As Byte
o241 As Boolean
o242 As Boolean
b243 As Byte
b244 As Byte
b245 As Byte
o246 As Boolean
b247 As Byte
b248 As Byte
b249 As Byte
b250 As Byte
Filler251(1 To 2) As Byte
o253 As Boolean
Filler254(1 To 1) As Byte
o255 As Boolean
b256 As Byte
b257 As Byte
b258 As Byte
b259 As Byte
Filler260(1 To 46) As Byte
b306 As Byte
Filler307(1 To 3) As Byte
t29_310 As Type29
End Type
Type Type27
Filler0(1 To 30) As Byte
s30 As String*18
Filler48(1 To 142) As Byte
b190 As Byte
s191 As String*30
Filler221(1 To 25) As Byte
b246 As Byte
End Type
Type Type26
b0 As Byte
s1 As String*20
s21 As String*8
s29 As String*18
s47 As String*18
s65 As String*18
s83 As String*18
Filler101(1 To 18) As Byte
l119 As Long
Filler123(1 To 20) As Byte
i143(1 To 10) As Integer
End Type
'! Declare Sub Sub2128
Declare Sub Sub2288
Declare Sub Sub2492
Declare Sub Sub2616
Declare Sub Sub12922
Declare Sub Sub13011
Declare Sub Sub19441
Declare Sub Sub19500
Declare Sub Sub19818
Declare Sub Sub20010
Declare Function Func20089(s65534 As String) As String
Declare Function Func20409(s65534 As String, s65532 As String) As Boolean
Declare Sub Sub20543
Declare Sub Sub20600
Dim s4463 As String*4
Dim i4467 As Integer
Dim s4469 As String
Dim s4473 As String
Dim s4477 As String
Dim s4481 As String
Dim s4485 As String
Dim s4489 As String
Dim s4493 As String
Dim s4497 As String
Dim s4501 As String
Dim s4505 As String
Dim s4509 As String
Dim s4513 As String
Dim s4517 As String
Dim s4521 As String
Dim t28_4525 As Type28
Dim t27_4871 As Type27
Dim t26_5398 As Type26
Dim s5791 As String
Dim s5795 As String
Dim b5799 As Byte
Dim b5800 As Byte
Dim i5801 As Integer
Dim b5803 As Byte
Dim s5804 As String
Dim s5808 As String
Dim b5812 As Byte
Dim o5813 As Boolean
Dim s5814 As String*25
Dim s5839 As String*18
Dim s5857 As String*1
Dim i5858 As Integer
Dim i5860 As Integer
Dim s5862 As String
Dim b5866 As Byte
Dim b5867 As Byte
Dim b5882 As Byte
Dim s5884 As String
Dim s5888 As String
Dim s5892 As String
Dim s5896 As String
Dim b5901 As Byte
Dim s5902 As String
Dim b5906 As Byte
Dim b5907 As Byte
Dim i5908 As Integer
Dim i5910 As Integer
Dim i5912 As Integer
Dim s5914 As String
Dim s5918 As String
Dim s5992 As String
Dim s5996 As String
Dim i6000 As Integer
Dim b6002 As Byte
Dim b6003 As Byte
Dim s6004 As String*1
Dim s6005 As String*1
Dim b6006 As Byte
Dim b6007 As Byte
Dim b6008 As Byte
Dim b6009 As Byte
Dim b6010 As Byte
Dim s6011 As String
Dim o6015 As Boolean
i4467 = Int(Rnd(1) * 2)
If i4467 = 0 Then
s4463 = "@02@"
Else
94 s4463 = "@05@"
End If
105 s4469 = s4463 + "MUTANTS@07@ - v1.2"
s4473 = "@07@(C) Copyright 1996 @0F@S@09@apphire @0F@S@09@oftware"
s4477 = s4463 + "Author:@07@ Scott J. Bradbury"
s4481 = "@07@Released on June 15, 1996"
s4485 = "Support BBS: " + s4463 + "The Coral Reef@07@ ■ (517) 894-0729"
s4489 = ProgPath + "\disp\"
s4493 = ProgPath + "\mail\"
s4497 = ProgPath + "\scores\"
s5892 = Tab(5)
s5896 = Tab(10)
Sub19500
If UCase(User.Name) = UCase(MakeWild.SysopName) Then
b5882 = - 1
Else
296 If UCase(User.Name) = "SCOTT BRADBURY" Then
b5882 = - 1
Else
337 If UCase(User.Name) = UCase(s5808) Then
b5882 = - 1
Else
380 b5882 = 0
Open ProgPath + "error.log" For Append As 7
Print #7, UCase(User.Name) + " tried to use the Mutants Editor."
Close 7
Cls
Print
Print "@0C@Security Error"
Print
Print "@07@You do not have access to this utility."
Print "Your attempt to enter has been recorded."
Delay 4
End
End If
End If
End If
484 b6002 = Len(MakeWild.SysopName)
b6008 = InStr(1, MakeWild.SysopName, " ")
s6011 = Left(MakeWild.SysopName, b6008 - 1)
b6003 = Len(s6011)
s6004 = UCase(Left(MakeWild.SysopName, 1))
s6005 = UCase(Mid(MakeWild.SysopName, 2, 1))
If s6004 = "S" Or s6004 = "T" Then
b6009 = 7
Else
662 If s6004 = "U" Or s6004 = "V" Then
b6009 = 8
Else
709 If s6004 = "W" Or s6004 = "X" Then
b6009 = 9
Else
756 If s6004 = "Y" Or s6004 = "Z" Then
b6009 = 10
Else
803 If s6004 = "A" Or s6004 = "B" Then
b6009 = 11
Else
850 If s6004 = "C" Or s6004 = "D" Then
b6009 = 12
Else
897 If s6004 = "E" Or s6004 = "F" Then
b6009 = 13
Else
944 If s6004 = "G" Or s6004 = "H" Then
b6009 = 14
Else
991 If s6004 = "H" Or s6004 = "I" Then
b6009 = 1
Else
1038 If s6004 = "J" Or s6004 = "K" Then
b6009 = 2
Else
1085 If s6004 = "L" Or s6004 = "M" Then
b6009 = 3
Else
1132 If s6004 = "N" Or s6004 = "O" Then
b6009 = 4
Else
1179 If s6004 = "P" Or s6004 = "Q" Then
b6009 = 5
Else
1226 If s6004 = "R" Then
b6009 = 6
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
1252 If s6005 = "S" Or s6005 = "T" Then
b6010 = 14
Else
1299 If s6005 = "U" Or s6005 = "V" Then
b6010 = 13
Else
1346 If s6005 = "W" Or s6005 = "X" Then
b6010 = 12
Else
1393 If s6005 = "Y" Or s6005 = "Z" Then
b6010 = 11
Else
1440 If s6005 = "A" Or s6005 = "B" Then
b6010 = 10
Else
1487 If s6005 = "C" Or s6005 = "D" Then
b6010 = 9
Else
1534 If s6005 = "E" Or s6005 = "F" Then
b6010 = 8
Else
1581 If s6005 = "G" Or s6005 = "H" Then
b6010 = 7
Else
1628 If s6005 = "H" Or s6005 = "I" Then
b6010 = 6
Else
1675 If s6005 = "J" Or s6005 = "K" Then
b6010 = 5
Else
1722 If s6005 = "L" Or s6005 = "M" Then
b6010 = 4
Else
1769 If s6005 = "N" Or s6005 = "O" Then
b6010 = 3
Else
1816 If s6005 = "P" Or s6005 = "Q" Then
b6010 = 2
Else
1863 If s6005 = "R" Then
b6010 = 1
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
1889 b6006 = b6002 + b6003
b6007 = b6003 + b6009 + 12
s5791 = Str(b6006) + Str(b6009) + Str(b6002) + Str(b6007) + Str(b6010) + Str(b6003)
MorePrompt(0)
Sub2616
'! Called 0 times
'! Sub Sub2128
'! Open ProgPath + "mutants.cfg" For Input As 2
'! Input #2, s5795
'! Input #2, b5799
'! Input #2, b5800
'! Input #2, i5801
'! Input #2, b5803
'! Input #2, s5804
'! Input #2, s5808
'! Input #2, b5812
'! Input #2, s4497
'! Input #2, s4501
'! Input #2, s4505
'! Input #2, s4509
'! Input #2, s4513
'! Input #2, s4517
'! Input #2, s4521
'! Input #2, o5813
'! Close 2
'! End Sub
'! Called 1 time
Sub Sub2288
If Exists(ProgPath + "gameinfo.cfg") = 0 Then
s5814 = "New Futura City"
s5839 = "Xaviana Magnaflux"
s5857 = "F"
i5858 = 0
i5860 = 0
s5862 = "Mild"
b5866 = 4
b5867 = 25
Else
2393 Open ProgPath + "gameinfo.cfg" For Input As 1
Input #1, s5814
Input #1, s5839
Input #1, s5857
Input #1, i5858
Input #1, i5860
Input #1, s5862
Input #1, b5866
Input #1, b5867
Close 1
End If
2489
End Sub
'! Called 2 times
Sub Sub2492
Open ProgPath + "gameinfo.cfg" For Output As 1
Print #1, s5814
Print #1, s5839
Print #1, s5857
Print #1, i5858
Print #1, i5860
Print #1, s5862
Print #1, b5866
Print #1, b5867
Close 1
End Sub
'! Called 1 time
Sub Sub2616
Dim l65446 As Long
Dim i65450 As Integer
Dim l65452 As Long
Dim i65456 As Integer
Dim l65458 As Long
Dim i65462 As Integer
Dim l65464 As Long
Dim i65468 As Integer
Dim l65470 As Long
Dim i65474 As Integer
Dim l65476 As Long
Dim i65480 As Integer
Dim l65482 As Long
Dim i65486 As Integer
Dim l65488 As Long
Dim i65492 As Integer
Dim l65494 As Long
Dim i65498 As Integer
Dim l65500 As Long
Dim i65504 As Integer
Dim l65506 As Long
Dim i65510 As Integer
Dim s65512 As String
Dim s65516 As String
Dim s65520 As String
Dim s65524 As String
Dim s65528 As String
Dim s65532 As String
Do
2625 If s5795 = s5791 Then
o6015 = - 1
Else
2656 If s5795 <> s5791 Then
o6015 = 0
End If
End If
2678 Cls
Print s5892; "@0D@"; s4469
Print s5892; "@0F@Configuration Setup and Player Editor@07@"
Print
Print
Print s5896; "[@0F@I@07@]nstall (First Time Setup)"
Print s5896; "[@0F@C@07@]onfiguration"
Print s5896; "[@0F@P@07@]layer Editor"
Print s5896; "[@0F@T@07@]eam Editor"
Print s5896; "[@0F@O@07@]nline Player Reset"
Print s5896; "[@0F@R@07@]eset Entire Game"
Print s5896; "[@0F@F@07@]ile Conversion"
Print s5896; "[@0F@Q@07@]uit"
Print
Print
Print s5892; "@07@Option ->@0F@ ";
Do
2860 s5884 = UCase(InKey(1213417543))
Loop Until InStr("ICPTORFQ", s5884) > 0
Print s5884
Delay 0.1
Print
s65532 = UCase(s5884)
If s65532 = "F" Then
Cls
Print
Print s5892; "This option is to upgrade existing game files to a new format"
Print s5892; "during upgrades. Run this process ONLY when the you are instructed"
Print s5892; "to do so from the UPGRADE.DOC file. It is to be run only once."
Print
Print
Print s5892; "@0F@1. @07@Team File Upgrade"
Print s5892; "@0F@Q. @07@Quit"
Print
Print
Print s5892; "] ";
Do
3045 s5884 = UCase(InKey(1213417543))
Loop Until InStr("1Q", s5884) > 0
Print s5884
Print
s65528 = s5884
If s65528 = "1" Then
Print
Print s5892; "@0C@ARE YOU SURE? ";
Do
3133 s5884 = UCase(InKey(1213417543))
Loop Until InStr("YN", s5884) > 0
If s5884 = "Y" Then
Run ProgPath + "teamcnvt", ""
Name ProgPath + "teamfile.dat" As ProgPath + "teamfile.old"
Name ProgPath + "teamfile.new" As ProgPath + "teamfile.dat"
Print
Print
Print s5892; "@0F@Upgrade process completed."
Delay 2
Print
Print s5892; "Your old team file has been renamed to TEAMFILE.OLD in case"
Print s5892; "the conversion did not end normally."
End If
3309 Else
3315 If s65528 = "Q" Then
GoTo 3338
End If
End If
3338 Else
3344 If s65532 = "R" Then
Cls
Print
Print
Print s5892; "@8C@WARNING!"
Print
Print s5892; "@0F@THIS OPTION WILL START YOUR ENTIRE GAME OVER FROM SCRATCH!"
Print s5892; "@07@All players will be deleted and files initialized to begin"
Print s5892; "a new game. Do not use this command while someone is in the game."
Print
Print
Print s5892; "Proceed with @0F@RESET@07@? [@0F@Y@07@/@0F@N@07@]@0F@ ";
Do
3449 s5884 = UCase(InKey(1213417543))
Loop Until InStr("YN", s5884) > 0
Print s5884
Delay 0.1
If s5884 = "Y" Then
Kill ProgPath + "players.dat"
Kill ProgPath + "teamfile.dat"
Kill ProgPath + "gameinfo.cfg"
Kill ProgPath + "sysop.log"
Kill ProgPath + "today.log"
Kill ProgPath + "yesterdy.log"
Kill ProgPath + "oldnews.log"
Kill ProgPath + "gametrak.txt"
3643 For i5908 = 1 To 100 Step 1
Kill ProgPath + "hqmsg." + Str(i5908)
Kill s4493 + "meet." + Str(i5908)
Kill s4493 + "bank." + Str(i5908)
Kill s4493 + "urgent." + Str(i5908)
Kill s4493 + "online." + Str(i5908)
Next
3835 b5906 = 0
3862 For i5908 = 1 To 100 Step 1
Kill s4493 + "mail" + Str(i5908) + "." + Str(b5906)
Kill s4493 + "talk" + Str(i5908) + "." + Str(b5906)
Kill s4493 + "reply" + Str(i5908) + "." + Str(b5906)
Inc b5906
Next
4064 Kill s4497 + s4501
Kill s4497 + s4505
Kill s4497 + s4509
Kill s4497 + s4513
Kill s4497 + s4517
Kill s4497 + s4521
Print
Print s5892; "@07@You will now want to check your configuration options to"
Print s5892; "make sure all is set the way you want it."
Sub20010
End If
4180 Else
4186 If s65532 = "P" Then
If o6015 = - 1 Then
Sub13011
Else
4232 If o6015 = 0 Then
Print
Print s5892; "The Player Editor is not available in the unregistered version."
Sub20010
GoTo 12895
End If
End If
4275 If Exists(ProgPath + "players.dat") = -1 Then
Sub13011
Else
4311 Print
Print
Print s5892; "No players are active yet."
Sub20010
GoTo 12895
End If
4342 Else
4348 If s65532 = "T" Then
Print
Print s5892; "@07@The Team Editor will be available in a future release."
Sub20010
End
b5907 = 1
Do
4396 If o6015 = 0 Then
Print
Print s5892; "The Team Editor is not available in the unregistered version."
Sub20010
GoTo 8765
End If
4439 Cls
Print
If Exists(ProgPath + "teamfile.dat") = -1 Then
Sub20543
Else
4480 Print
Print
Print s5892; "No teams have been created yet."
Sub20010
GoTo 8765
End If
4511 Print s5892; "@07@ Team ID # :@0F@ "; t26_5398.b0
Print s5892; "@0D@1.@07@ Name of Team :@0F@ "; t26_5398.s1
Print s5892; "@0D@2.@07@ Team Password :@0F@ "; t26_5398.s21
Print s5892; "@0D@3.@07@ Leader :@0F@ "; t26_5398.s29
Print s5892; "@0D@4.@07@ Member :@0F@ "; t26_5398.s47
Print s5892; "@0D@5.@07@ Member :@0F@ "; t26_5398.s65
Print s5892; "@0D@6.@07@ Member :@0F@ "; t26_5398.s83
Print s5892; "@0D@7.@07@ Bank Account :@0F@ "; t26_5398.l119
Print s5892; "@0D@8.@07@ Medical Kit I :@0F@ "; t26_5398.i143(1)
Print s5892; "@0D@9.@07@ Medical Kit II:@0F@ "; t26_5398.i143(6)
Print s5892; "@0D@A.@07@ P-Detonators :@0F@ "; t26_5398.i143(2)
Print s5892; "@0D@B.@07@ Nitro Packs :@0F@ "; t26_5398.i143(3)
Print s5892; "@0D@C.@07@ Rocks :@0F@ "; t26_5398.i143(4)
Print s5892; "@0D@D.@07@ Control Cards :@0F@ "; t26_5398.i143(5)
Print
Print s5892; "@07@[@0D@N@07@]ext Team @07@[@0D@L@07@]eave Team Editor"
Print s5892; ">@0F@ ";
Do
5065 s5884 = UCase(InKey(1213417543))
Loop Until InStr("123456789ABCDLN", s5884) > 0
Print s5884
Delay 0.1
Print
s65524 = s5884
If s65524 = "1" Then
s5992 = t26_5398.s1
Print s5892; "Enter new team name: ";
Input t26_5398.s1
If t26_5398.s1 = "" Then
t26_5398.s1 = s5992
End If
5222 Sub20600
Else
5234 If s65524 = "2" Then
s5992 = t26_5398.s21
Print s5892; "Enter new password: ";
Input t26_5398.s21
If t26_5398.s21 = "" Then
t26_5398.s21 = s5992
End If
5329 Sub20600
Else
5341 If s65524 = "3" Then
Print s5892; "Name of Team Leader: ";
Input s5996
Open ProgPath + "players.dat" For Random As 4 Len = 346 '! This value should probably be replaced with a "SizeOf" expression
5429 For i5908 = 1 To LOF(4) Step 1
Get 4, i5908, t27_4871 '! 346 bytes
If UCase(s5996) = UCase(t27_4871.s30) Then
s5992 = t26_5398.s29
t26_5398.s29 = s5996
t27_4871.b190 = b5907
t27_4871.s191 = t26_5398.s1
Put 4, i5908, t27_4871 '! 346 bytes
5625 For i6000 = 1 To LOF(4) Step 1
Get 4, i6000, t28_4525 '! 346 bytes
If UCase(s5992) = UCase(t28_4525.s30) Then
t28_4525.b190 = 0
t28_4525.s191 = "No Team"
Put 4, i6000, t28_4525 '! 346 bytes
End If
5760 Next
5783 GoTo 5909
Else
5795 If UCase(s5996) <> UCase(t27_4871.s30) And EOF(4) Then
t26_5398.s29 = "No Member"
t27_4871.b190 = 0
t27_4871.s191 = "No Team"
Put 4, i5908, t27_4871 '! 346 bytes
End If
End If
5886 Next
5909 Close 4
Sub20600
Else
5926 If s65524 = "4" Then
Print s5892; "Type FULL name of member: ";
Input s5996
Open ProgPath + "players.dat" For Random As 4 Len = 346 '! This value should probably be replaced with a "SizeOf" expression
6014 For i5908 = 1 To LOF(4) Step 1
Get 4, i5908, t27_4871 '! 346 bytes
If UCase(s5996) = UCase(t27_4871.s30) Then
s5992 = t26_5398.s47
t26_5398.s47 = s5996
t27_4871.b190 = b5907
t27_4871.s191 = t26_5398.s1
Put 4, i5908, t27_4871 '! 346 bytes
6210 For i6000 = 1 To LOF(4) Step 1
Get 4, i6000, t28_4525 '! 346 bytes
If UCase(s5992) = UCase(t28_4525.s30) Then
t28_4525.b190 = 0
t28_4525.s191 = "No Team"
Put 4, i6000, t28_4525 '! 346 bytes
End If
6345 Next
6368 GoTo 6397
End If
6374 Next
6397 If UCase(s5996) <> UCase(t27_4871.s30) Then
t26_5398.s47 = "No Member"
t27_4871.b190 = 0
t27_4871.s191 = "No Team"
Put 4, i5908, t27_4871 '! 346 bytes
End If
6481 Close 4
Sub20600
Else
6498 If s65524 = "5" Then
Print s5892; "Type FULL name of member: ";
Input s5996
Open ProgPath + "players.dat" For Random As 4 Len = 346 '! This value should probably be replaced with a "SizeOf" expression
6586 For i5908 = 1 To LOF(4) Step 1
Get 4, i5908, t27_4871 '! 346 bytes
If UCase(s5996) = UCase(t27_4871.s30) Then
s5992 = t26_5398.s65
t26_5398.s65 = s5996
t27_4871.b190 = b5907
t27_4871.s191 = t26_5398.s1
Put 4, i5908, t27_4871 '! 346 bytes
6782 For i6000 = 1 To LOF(4) Step 1
Get 4, i6000, t28_4525 '! 346 bytes
If UCase(s5992) = UCase(t28_4525.s30) Then
t28_4525.b190 = 0
t28_4525.s191 = "No Team"
Put 4, i6000, t28_4525 '! 346 bytes
End If
6917 Next
6940 GoTo 7066
Else
6952 If UCase(s5996) <> UCase(t27_4871.s30) And EOF(4) Then
t26_5398.s65 = "No Member"
t27_4871.b190 = 0
t27_4871.s191 = "No Team"
Put 4, i5908, t27_4871 '! 346 bytes
End If
End If
7043 Next
7066 Close 4
Sub20600
Else
7083 If s65524 = "6" Then
Print s5892; "Type FULL name of member: ";
Input s5996
Open ProgPath + "players.dat" For Random As 4 Len = 346 '! This value should probably be replaced with a "SizeOf" expression
7171 For i5908 = 1 To LOF(4) Step 1
Get 4, i5908, t27_4871 '! 346 bytes
If UCase(s5996) = UCase(t27_4871.s30) Then
s5992 = t26_5398.s83
t26_5398.s83 = s5996
t27_4871.b190 = b5907
t27_4871.s191 = t26_5398.s1
Put 4, i5908, t27_4871 '! 346 bytes
7367 For i6000 = 1 To LOF(4) Step 1
Get 4, i6000, t28_4525 '! 346 bytes
If UCase(s5992) = UCase(t28_4525.s30) Then
t28_4525.b190 = 0
t28_4525.s191 = "No Team"
Put 4, i6000, t28_4525 '! 346 bytes
End If
7502 Next
7525 GoTo 7651
Else
7537 If UCase(s5996) <> UCase(t27_4871.s30) And EOF(4) Then
t26_5398.s83 = "No Member"
t27_4871.b190 = 0
t27_4871.s191 = "No Team"
Put 4, i5908, t27_4871 '! 346 bytes
End If
End If
7628 Next
7651 Close 4
Sub20600
Else
7668 If s65524 = "7" Then
Print s5892; "Enter amount in team bank account: ";
Input t26_5398.l119
Sub20600
Else
7723 If s65524 = "8" Then
Print s5892; "Number of Medical Kits I in Inventory: ";
Input t26_5398.i143(1)
If t26_5398.i143(1) > 32000 Then
t26_5398.i143(1) = 0
End If
7874 Sub20600
Else
7886 If s65524 = "9" Then
Print s5892; "Number of Medical Kits II in Inventory: ";
Input t26_5398.i143(6)
If t26_5398.i143(6) > 32000 Then
t26_5398.i143(6) = 0
End If
8037 Sub20600
Else
8049 If s65524 = "A" Then
Print s5892; "Number of Proton Detonators in Inventory: ";
Input t26_5398.i143(2)
If t26_5398.i143(2) > 32000 Then
t26_5398.i143(2) = 0
End If
8200 Sub20600
Else
8212 If s65524 = "B" Then
Print s5892; "Number of Nitro Packs in Inventory: ";
Input t26_5398.i143(3)
If t26_5398.i143(3) > 32000 Then
t26_5398.i143(3) = 0
End If
8363 Sub20600
Else
8375 If s65524 = "C" Then
Print s5892; "Number of Rocks in Inventory: ";
Input t26_5398.i143(4)
If t26_5398.i143(4) > 32000 Then
t26_5398.i143(4) = 0
End If
8526 Sub20600
Else
8538 If s65524 = "D" Then
Print s5892; "Number of Control Cards in Inventory: ";
Input t26_5398.i143(5)
If t26_5398.i143(5) > 32000 Then
t26_5398.i143(5) = 0
End If
8689 Sub20600
Else
8701 If s65524 = "N" Then
Inc b5907
Else
8730 If s65524 = "L" Then
GoTo 8765
GoTo 8759
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
8759 Loop
8765 Else
8771 If s65532 = "C" Then
Sub2288
Sub19500
Do
8800 MorePrompt(0)
Cls
Print s5892; "@0F@Configuration Options"
Print
Print s5892; "@07@1. Enter Registration Number: @05@"; s5795
Print s5892; "@07@2. Max # of Street Fights: @05@"; b5799
Print s5892; "@07@3. Max # of Player Fights: @05@"; b5800
Print s5892; "@07@4. Max Amount to Transfer: @05@"; i5801
Print s5892; "@07@5. Length of Game in Days: @05@"; i5860
Print s5892; "@07@6. Name of Caller who Registered Game: @05@"; s5804
Print s5892; "@07@7. Current Weather Condition: @05@"; s5862
Print s5892; "@07@8. Maximum # of Teams: @05@"; b5803
Print s5892; "@07@9. Rooms available in Zorak's Hotel: @05@"; b5867
Print s5892; "@07@A. Days to wait before deleting inactive players: @05@"; b5812
Print s5892; "@07@B. Name of City: @05@"; s5814
Print s5892; "@07@C. City Ruler's Name: @05@"; s5839
Print s5892; "@07@D. Scores Setup"
Print s5892; "@07@E. Game Editor Sysop: @05@"; s5808
If o5813 = 0 Then
Print s5892; "@07@F. Clean Mode is @0C@OFF"
Else
9159 Print s5892; "@07@F. Clean Mode is @0A@ON"
End If
9174 Print s5892; "@07@Q. Quit Configuration"
Print
Print s5892; "@07@Number Players: @05@"; i5858
Print
Print s5892; "@07@>@05@ ";
Do
9230 s5884 = UCase(InKey(1213417543))
Loop Until InStr("123456789ABCDEFQ", s5884) > 0
Print s5884
Delay 0.1
Print
Print
s65520 = s5884
If s65520 = "1" Then
s5902 = s5795
Print "@07@Enter your registration code:@05@ ";
Input s5795
If s5795 = "" Then
s5795 = s5902
End If
9359 Else
9365 If s65520 = "2" Then
Print "@07@Maximum Number of Street Fights per Day:@05@ ";
Input b5799
Else
9404 If s65520 = "3" Then
Print "@07@Maximum Number of Player Fights per Day:@05@ ";
Input b5800
Else
9443 If s65520 = "4" Then
Print "@07@Maximum of Credits for Team Members to Transfer:@05@ ";
Input i5801
Else
9482 If s65520 = "5" Then
Print "@07@How long has the current game been running? ";
Input i5860
Else
9521 If s65520 = "6" Then
Print "@07@Name of person who registered game: ";
Input s5804
If s5804 = "" Then
s5804 = "Scott Bradbury"
End If
9579 Else
9585 If s65520 = "7" Then
Print "@07@0. Extremely Cold"
Print "@07@1. Cold"
Print "@07@2. Cool and Mild"
Print "@07@3. Windy"
Print "@07@4. Rain and Thunderstorms"
Print "@07@5. Mild"
Print "@07@6. Sunny & Clear"
Print "@07@7. Hot"
Print "@07@8. Hot and Humid"
Print "@0F@P@07@revious Menu"
Do
9692 s5884 = UCase(InKey(1213417543))
Loop Until InStr("012345678P", s5884) > 0
s65516 = s5884
If s65516 = "P" Then
Else
9759 If s65516 = "0" Then GoTo 9912
If s65516 = "1" Then GoTo 9912
If s65516 = "2" Then GoTo 9912
If s65516 = "3" Then GoTo 9912
If s65516 = "4" Then GoTo 9912
If s65516 = "5" Then GoTo 9912
If s65516 = "6" Then GoTo 9912
If s65516 = "7" Then GoTo 9912
If s65516 = "8" Then
9912 Func20089(s5884)
b5866 = Val(s5884)
GoTo 9940
End If
End If
9940 Else
9946 If s65520 = "8" Then
Print "@07@Maximum Number of Teams to Allow:@05@ ";
Input b5803
Else
9985 If s65520 = "9" Then
Print "@07@Rooms vacant in Zorak's Hotel [Max 25]:@05@ ";
Input b5867
If b5867 > 25 Then
b5867 = 25
Else
10046 If Str(b5867) = "" Then
b5867 = 25
End If
End If
10074 Else
10080 If s65520 = "A" Then
Print "@07@Delete players after how many days inactivity? ";
Input b5812
If Str(b5812) = "" Then
b5812 = 15
End If
10141 Else
10147 If s65520 = "B" Then
Print "@07@Name of City: ";
Input s5814
If s5814 = "" Then
s5814 = "New Futura City"
End If
10211 Else
10217 If s65520 = "C" Then
Print "@07@Name of City Ruler: ";
Input s5839
If s5839 = "" Then
s5839 = "Xaviana Magnaflux"
End If
10281 Print "@07@Gender (M/F): ";
Input s5857
If s5857 = "" Then
s5857 = "F"
End If
10328 Else
10334 If s65520 = "D" Then
Do
10351 Cls
Print
If s4497 = "" Then
s4497 = ProgPath + "SCORES\"
End If
10387 If s4501 = "" Then
s4501 = "ROSTER.BBS"
End If
10413 If s4505 = "" Then
s4505 = "EXPERT.BBS"
End If
10439 If s4509 = "" Then
s4509 = "CHARISMA.BBS"
End If
10465 If s4513 = "" Then
s4513 = "TEAMLIST.BBS"
End If
10491 If s4517 = "" Then
s4517 = "ELITE.BBS"
End If
10517 If s4521 = "" Then
s4521 = "CLASSES.BBS"
End If
10543 Print s5892; "@0D@SCORE LISTINGS SETUP"
Print
Print s5892; "@0D@1@07@] Scores Directory :@0F@ "; s4497
Print s5892; "@0D@2@07@] City Roster Bulletin:@0F@ "; s4501
Print s5892; "@0D@3@07@] Experienced Listing :@0F@ "; s4505
Print s5892; "@0D@4@07@] Charisma Ratings :@0F@ "; s4509
Print s5892; "@0D@5@07@] Team Listings :@0F@ "; s4513
Print s5892; "@0D@6@07@] Elite Rankings :@0F@ "; s4517
Print s5892; "@0D@7@07@] Mutant Class List :@0F@ "; s4521
Print s5892; "@0D@Q@07@]uit to Main"
Print
Print s5892; ">@0F@ ";
Do
10739 s5884 = UCase(InKey(1213417543))
Loop Until InStr("1234567Q", s5884) > 0
Print s5884
Delay 0.1
Print
s65512 = s5884
If s65512 = "1" Then
Print s5892; "@07@Enter the drive and directory for your score listings."
Print s5892; "@0D@(Example: C:\MUTANTS\SCORES)"
Print
Print s5892; "] ";
Input s4497
If s4497 = "" Then
s4497 = ProgPath + "SCORES"
End If
10902 If s4497 <> "" Then
Print s5892; "Do you want to make this directory now? ";
Do
10934 s5884 = UCase(InKey(1213417543))
Loop Until InStr("YN", s5884) > 0
If s5884 = "Y" Then
MkDir s4497
s4497 = s4497 + "\"
Print
Print s5892; "@07@The game will now start keeping your score files in this directory."
End If
11026 If s5884 = "N" Then
s4497 = s4497 + "\"
Print
Print s5892; "@07@Make sure you create this directory."
End If
End If
11075 Sub20010
Else
11087 If s65512 = "2" Then
Print s5892; "@07@City Roster Bulletin:@0D@ ";
Input s4501
If s4501 = "" Then
s4501 = "ROSTER.BBS"
End If
11151 Else
11157 If s65512 = "3" Then
Print s5892; "@07@Experienced Listing: ";
Input s4505
If s4505 = "" Then
s4505 = "EXPERT.BBS"
End If
11221 Else
11227 If s65512 = "4" Then
Print s5892; "@07@Charisma Ratings: ";
Input s4509
If s4509 = "" Then
s4509 = "CHARISMA.BBS"
End If
11291 Else
11297 If s65512 = "5" Then
Print s5892; "@07@Team Listings: ";
Input s4513
If s4513 = "" Then
s4513 = "TEAMLIST.BBS"
End If
11361 Else
11367 If s65512 = "6" Then
Print s5892; "@07@Elite Rankings: ";
Input s4517
If s4517 = "" Then
s4517 = "ELITE.BBS"
End If
11431 Else
11437 If s65512 = "7" Then
Print "@07@Class Listing: ";
Input s4521
If s4521 = "" Then
s4521 = "CLASSES.BBS"
End If
11495 Else
11501 If s65512 = "Q" Then
GoTo 11536
GoTo 11530
End If
End If
End If
End If
End If
End If
End If
End If
11530 Loop
11536 Else
11542 If s65520 = "E" Then
Print "@07@Name of person allowed to use game editor: ";
Input s5808
If s5808 = "" Then
s5808 = MakeWild.SysopName
End If
11605 Else
11611 If s65520 = "F" Then
If o5813 = 0 Then
o5813 = - 1
Else
11657 o5813 = 0
End If
11663 Else
11669 If s65520 = "Q" Then
Sub2492
Sub19818
b5901 = 1
GoTo 11711
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
11711 Loop While b5901 = 0
b5901 = 0
Else
11737 If s65532 = "I" Then
Cls
Print
Print s5892; "@07@This proceedure will setup some additional directories and files."
Print s5892; "The directories will be added on to "; ProgPath; "."
Print
Print s5892; "Is this the directory you plan to use? (@0F@Y@07@/@0F@N@07@)@0F@ ";
Do
11818 s5884 = UCase(InKey(1213417543))
Loop Until InStr("YN", s5884) > 0
Print s5884
Delay 0.1
Print
If s5884 = "Y" Then
Print
Print s5892; "@07@Installing...please wait."
MkDir ProgPath + "disp"
MkDir ProgPath + "mail"
MkDir ProgPath + "scores"
CopyFile(ProgPath + "\disp.zip", ProgPath + "\disp\disp.zip")
Shell "pkunzip disp", ProgPath + "\disp"
Kill ProgPath + "\disp\disp.zip"
Print
Print
Print s5892; "@05@Installation is complete."
Print
Sub20010
Else
12033 Print
Print s5892; "Unzip the MUTANTS archive into a directory you plan to use and"
Print s5892; "then try running this installation from that directory."
Print
Sub20010
End If
12073 Else
12079 If s65532 = "N" Then
t28_4525.b126 = t28_4525.b125
t28_4525.b247 = 0
t28_4525.b127 = b5800
t28_4525.b229 = 0
t28_4525.b128 = b5799
t28_4525.b256 = 0
t28_4525.s129 = "N"
t28_4525.b248 = 0
t28_4525.b223 = 0
t28_4525.b229 = 0
t28_4525.b224 = 0
t28_4525.b250 = 0
t28_4525.b225 = 0
t28_4525.b249 = 0
t28_4525.b226 = 0
t28_4525.b248 = 0
t28_4525.b234 = 0
t28_4525.b221 = 0
t28_4525.b222 = 0
t28_4525.b237 = 0
t28_4525.b239 = 0
t28_4525.o241 = 0
t28_4525.b228 = 0
t28_4525.s233 = "H"
t28_4525.b243 = 0
t28_4525.b244 = 0
t28_4525.b245 = 0
t28_4525.o246 = 0
t28_4525.b231 = t28_4525.b232
Else
12427 If s65532 = "O" Then
Cls
Print
Print
Print s5892; "This option will reset players as OFFLINE. Use this feature"
Print s5892; "when people are shown online in the game when they actually are"
Print s5892; "not playing."
Print
Print s5892; "Use this option when no one is in the game. Continuing while"
Print s5892; "players are currently in the game may have adverse effects."
Print
Print s5892; "Continue? [Y/N] ";
Do
12545 s5884 = UCase(InKey(1213417543))
Loop Until InStr("YN", s5884) > 0
Print s5884
Delay 0.1
Print
If s5884 = "Y" Then
Print
Print
Print
Print s5892; "Resetting online flag for all players..."
Open ProgPath + "players.dat" For Random As 1 Len = 346 '! This value should probably be replaced with a "SizeOf" expression
12687 For i5908 = 1 To LOF(1) Step 1
Seek 1, i5908
Get 1, i5908, t27_4871 '! 346 bytes
t27_4871.b246 = 0
Put 1, i5908, t27_4871 '! 346 bytes
Next
12812 Close 1
Print
Print
Print s5892; "Operation complete."
Sub20010
End If
12842 Else
12848 If s65532 = "Q" Then
Cls
b5901 = 1
GoTo 12881
End If
End If
End If
End If
End If
End If
End If
End If
End If
12881 Loop While b5901 = 0
12895
End Sub
'! Called 3 times
Sub Sub12922
Open ProgPath + "players.dat" For Random As 1 Len = 346 '! This value should probably be replaced with a "SizeOf" expression
Seek 1, i5908
i5910 = Loc(1)
i5912 = LOF(1)
Get 1, i5908, t28_4525 '! 346 bytes
Close 1
End Sub
'! Called 2 times
Sub Sub13011
Dim l65488 As Long
Dim i65492 As Integer
Dim l65494 As Long
Dim i65498 As Integer
Dim s65500 As String '! Temporary
Dim s65504 As String '! Temporary
Dim s65508 As String '! Temporary
Dim s65512 As String '! Temporary
Dim s65516 As String '! Temporary
Dim s65520 As String '! Temporary
Dim s65524 As String
Dim s65528 As String
Dim s65532 As String
If s5884 = "E" Then
Else
13043 i5908 = 1
Sub12922
Do
13056 Cls
Print "@0D@ 0.@07@ Real Name: @0F@"; t28_4525.s0; Tab(36); "@07@ID #:@0F@ "; t28_4525.s48
Print
Print "@0D@ 1.@07@ Mutant Name:@0F@ "; t28_4525.s30; Tab(36); "@0D@19.@07@ Last Played :@0F@ "; t28_4525.b258; "@07@ Day(s) Ago"
Print "@0D@ 2.@07@ Gender :@0F@ "; t28_4525.s55; Tab(36); "@0D@20.@07@ On Now :@0F@ "; t28_4525.o246
Print "@0D@ 3.@07@ Currency :@0F@ "; t28_4525.l98; Tab(36); "@0D@21.@07@ Player Fights :@0F@ "; t28_4525.b127
Print "@0D@ 4.@07@ Credit Acct:@0F@ "; t28_4525.l102; Tab(36); "@0D@22.@07@ Street Fights :@0F@ "; t28_4525.b128
Print "@0D@ 5.@07@ Experience :@0F@ "; t28_4525.l51; Tab(36); "@0D@23.@07@ Player Dead :@0F@ "; t28_4525.s129
Print "@0D@ 6.@07@ Intellect :@0F@ "; t28_4525.i56; Tab(36); "@0D@24.@07@ Hunger Level :@0F@ "; t28_4525.b256
Print "@0D@ 7.@07@ Health :@0F@ "; t28_4525.i94; Tab(36); "@0D@25.@07@ Obstacle Event :@0F@ "; t28_4525.b259
Print "@0D@ 8.@07@ Max Health :@0F@ "; t28_4525.i96; Tab(36); "@0D@26.@07@ Completed Games :@0F@ "; t28_4525.b230
Print "@0D@ 9.@07@ Charisma :@0F@ "; t28_4525.i58; Tab(36); "@0D@27.@07@ Flag Settings"
Print "@0D@10.@07@ Strength :@0F@ "; t28_4525.i60; Tab(36); "@0D@28.@07@ Skill Turns Left:@0F@ "; t28_4525.b231
Print "@0D@11.@07@ Level :@0F@ "; t28_4525.b106; Tab(36); "@0D@29.@07@ Max Skill Turns :@0F@ "; t28_4525.b232
Print "@0D@12.@07@ Mut. Power :@0F@ "; t28_4525.s110; Tab(36); "@0D@30.@07@ Inventory Items"
Print "@0D@13.@07@ Max MP Turn:@0F@ "; t28_4525.b125; Tab(36); "@0D@31.@07@ Edit Skills"
Print "@0D@14.@07@ MP Left :@0F@ "; t28_4525.b126; Tab(36); "@07@Team ID:@0F@ "; t28_4525.b190
Print "@0D@15.@07@ Alignment :@0F@ "; t28_4525.i107; Tab(36); "@07@Team Name :@0F@ "; t28_4525.s191
Print
Print
Print s5892; "@0F@F@07@orward @0F@B@07@ackward @0F@S@07@earch Alias @0F@R@07@eal Name Search"
Print s5892; "@0F@E@07@xit @0F@N@07@ew Day @0F@D@07@elete Player"
Print "> ";
Input s5884
s5884 = UCase(s5884)
s65532 = s5884
If s65532 = "0" Then
s5992 = t28_4525.s0
Print "Enter player's REAL name: ";
Input t28_4525.s0
If t28_4525.s0 = "" Then
t28_4525.s0 = s5992
End If
13918 Else
13924 If s65532 = "1" Then
s5992 = t28_4525.s30
Print "Enter New Alias Name: ";
Input t28_4525.s30
If t28_4525.s30 = "" Then
t28_4525.s30 = s5992
End If
14013 Else
14019 If s65532 = "2" Then
If UCase(t28_4525.s55) = "M" Then
t28_4525.s55 = "F"
Else
14083 If UCase(t28_4525.s55) = "F" Then
t28_4525.s55 = "M"
End If
End If
14124 Else
14130 If s65532 = "3" Then
Print "New Amount of Credits on Hand: ";
Input t28_4525.l98
Else
14173 If s65532 = "4" Then
Print "New Amount of Credits in RTM: ";
Input t28_4525.l102
Else
14216 If s65532 = "5" Then
Print "New Amount of Experience: ";
Input t28_4525.l51
Else
14259 If s65532 = "6" Then
Print "New Intelligence Level: ";
Input t28_4525.i56
Else
14302 If s65532 = "7" Then
Print "New Health units: ";
Input t28_4525.i94
If t28_4525.i94 > t28_4525.i96 Then
t28_4525.i94 = t28_4525.i96
End If
14383 Else
14389 If s65532 = "8" Then
Print "New Maximum Health units: ";
Input t28_4525.i96
t28_4525.i94 = t28_4525.i96
Else
14450 If s65532 = "9" Then
Print "New Charisma Rating: ";
Input t28_4525.i58
Else
14493 If s65532 = "10" Then
Print "New Amount of Strength: ";
Input t28_4525.i60
Else
14536 If s65532 = "11" Then
Print "Current Level (1 to 15): ";
Input t28_4525.b106
Else
14579 If s65532 = "12" Then
Cls
Print
Print s5892; "@0D@1.@07@ Optic Blast"
Print s5892; "@0D@2.@07@ Super Strength/Flying"
Print s5892; "@0D@3.@07@ Fire Power"
Print s5892; "@0D@4.@07@ Psychic Powers"
Print s5892; "@0D@5.@07@ Elemental Powers"
Print s5892; "@0D@6.@07@ Shape Shifter"
Print s5892; "@0D@7.@07@ Energy Waves"
Print s5892; "@0D@8.@07@ Cold Power"
Print
Print s5892; "> ";
Do
14738 s5884 = UCase(InKey(1213417543))
Loop Until InStr("12345678", s5884) > 0
t28_4525.b109 = Val(s5884)
If t28_4525.b109 = 1 Then
t28_4525.s110 = "Optic Blast"
Else
14830 If t28_4525.b109 = 2 Then
t28_4525.s110 = "Strength/Flying"
Else
14870 If t28_4525.b109 = 3 Then
t28_4525.s110 = "Cold Power"
Else
14910 If t28_4525.b109 = 4 Then
t28_4525.s110 = "Psychic"
Else
14950 If t28_4525.b109 = 5 Then
t28_4525.s110 = "Elemental"
Else
14990 If t28_4525.b109 = 6 Then
t28_4525.s110 = "Shape Shifter"
Else
15030 If t28_4525.b109 = 7 Then
t28_4525.s110 = "Energy Waves"
Else
15070 If t28_4525.b109 = 8 Then
t28_4525.s110 = "Cold Power"
End If
End If
End If
End If
End If
End If
End If
End If
15104 Else
15110 If s65532 = "13" Then
Print s5892; "Maximum # of Mutant Power Turns: ";
Input t28_4525.b125
If t28_4525.b125 < 0 Then
t28_4525.b125 = 2
End If
15182 Else
15188 If s65532 = "14" Then
Print s5892; "Number of Mutant Power Turns Left: ";
Input t28_4525.b126
If t28_4525.b126 > t28_4525.b125 Then
t28_4525.b126 = t28_4525.b125
Else
15281 If t28_4525.b126 < 0 Then
t28_4525.b126 = t28_4525.b125
End If
End If
15317 Else
15323 If s65532 = "15" Then
Print s5892; "Enter # for GOOD or -# for EVIL alignment: ";
Input t28_4525.i107
Else
15372 If s65532 = "19" Then
Print s5892; "Player last played how many days ago: ";
Input t28_4525.b258
Else
15422 If s65532 = "20" Then
If t28_4525.o246 = 0 Then
t28_4525.o246 = - 1
Else
15476 t28_4525.o246 = 0
End If
15486 Else
15492 If s65532 = "21" Then
Print "Number of Player Fights left: ";
Input t28_4525.b127
If t28_4525.b127 > b5800 Then
t28_4525.b127 = b5800
End If
15565 Else
15571 If s65532 = "22" Then
Print "Number of Street Fights left: ";
Input t28_4525.b128
If t28_4525.b128 > b5799 Then
t28_4525.b128 = b5799
End If
15644 Else
15650 If s65532 = "23" Then
If UCase(t28_4525.s129) = "Y" Then
t28_4525.s129 = "N"
t28_4525.i94 = t28_4525.i96
Else
15732 If UCase(t28_4525.s129) = "N" Then
t28_4525.s129 = "Y"
End If
End If
15773 Else
15779 If s65532 = "24" Then
Print s5892; "Enter hunger level of player:";
Input t28_4525.b256
Else
15829 If s65532 = "25" Then
Print s5892; "Make which obstacle event the current one (1 - 5): ";
Input t28_4525.b259
Else
15879 If s65532 = "26" Then
Print s5892; "Number of games player has completed: ";
Input t28_4525.b230
Else
15928 If s65532 = "27" Then
Do
15945 Cls
MorePrompt(0)
Print
Print s5892; "@0D@FLAG SETTINGS"
Print
Print s5892; "@07@[@0F@1@07@] Already On:@0F@ "; t28_4525.o241
Print s5892; "@07@[@0F@2@07@] In HQ :@0F@ "; t28_4525.o242
Print s5892; "@07@[@0F@3@07@] In Hotel :@0F@ "; t28_4525.o253
Print s5892; "@07@[@0F@Q@07@] Quit"
Print
Print s5892; "> ";
Do
16082 s5884 = UCase(InKey(1213417543))
Loop Until InStr("123Q", s5884) > 0
Print s5884
Delay 0.1
Print
s65528 = s5884
If s65528 = "1" Then
If t28_4525.o241 = 0 Then
t28_4525.o241 = - 1
Else
16198 t28_4525.o241 = 0
End If
16208 Else
16214 If s65528 = "2" Then
If t28_4525.o242 = 0 Then
t28_4525.o242 = - 1
If t28_4525.o242 = - 1 And t28_4525.o253 = - 1 Then
t28_4525.o242 = 0
End If
16310 Else
16316 t28_4525.o242 = 0
End If
16326 Else
16332 If s65528 = "3" Then
If t28_4525.o253 = 0 Then
t28_4525.o253 = - 1
Dec b5867
If t28_4525.o253 = - 1 And t28_4525.o242 = - 1 Then
t28_4525.o253 = 0
Inc b5867
End If
16440 Else
16446 t28_4525.o253 = 0
Inc b5867
End If
16462 Sub2492
Else
16474 If s65528 = "Q" Then
GoTo 16509
GoTo 16503
End If
End If
End If
End If
16503 Loop
16509 Else
16515 If s65532 = "28" Then
Print s5892; "Number of Extra Skills Turns Left: ";
Input t28_4525.b231
If t28_4525.b231 > t28_4525.b232 Then
t28_4525.b231 = 0
End If
16594 Else
16600 If s65532 = "29" Then
Print s5892; "Maximum Number of Extra Skills: ";
Input t28_4525.b232
Else
16649 If s65532 = "30" Then
Do
16666 Cls
Print
Print s5892; "@0F@INVENTORY ITEMS"
Print
Print
Print s5892; "@07@[@0D@A@07@] Proton Packs :@0F@ "; t28_4525.t29_310.i0
Print s5892; "@07@[@0D@B@07@] Nitro Packs :@0F@ "; t28_4525.t29_310.i2
Print s5892; "@07@[@0D@C@07@] Rocks :@0F@ "; t28_4525.t29_310.i4
Print s5892; "@07@[@0D@D@07@] Control Cards:@0F@ "; t28_4525.t29_310.i6
Print s5892; "@07@[@0D@1@07@] Own Coat :@0F@ "; t28_4525.o255
Print s5892; "@07@[@0D@2@07@] Own ComLink :@0F@ "; t28_4525.o235
Print s5892; "@07@[@0D@3@07@] MedKit I :@0F@ "; t28_4525.b257
Print s5892; "@07@[@0D@4@07@] MedKit II :@0F@ "; t28_4525.b306
Print
Print s5892; "@0F@Q@07@uit"
Do
16933 s5884 = UCase(InKey(1213417543))
Loop Until InStr("ABCD1234Q", s5884) > 0
Print s5884
Delay 0.1
Print
Print
s65524 = s5884
If s65524 = "Q" Then
GoTo 17337
Else
17026 If s65524 = "1" Then
If t28_4525.o255 = 0 Then
t28_4525.o255 = - 1
Else
17080 t28_4525.o255 = 0
End If
17090 Else
17096 If s65524 = "2" Then
If t28_4525.o235 = - 1 Then
t28_4525.o235 = 0
Else
17150 t28_4525.o235 = - 1
End If
17163 Else
17169 If s65524 = "3" Then
Print s5892; "Amount of Medical Kits I (5-Pack): ";
Input t28_4525.b257
If t28_4525.b257 > 250 Then
t28_4525.b257 = 0
End If
17244 Else
17250 If s65524 = "4" Then
Print s5892; "Amount of Medical Kits II (10-Pack): ";
Input t28_4525.b306
If t28_4525.b306 > 250 Then
t28_4525.b306 = 0
End If
17325 GoTo 17331
End If
End If
End If
End If
End If
17331 Loop
17337 Else
17343 If s65532 = "31" Then
Do
17360 Cls
Print
Print s5892; "@0F@EDIT EXTRA SKILLS"
Print
Print s5892; "@0D@1.@07@ "; t28_4525.s130
Print s5892; "@0D@2.@07@ "; t28_4525.s150
Print s5892; "@0D@3.@07@ "; t28_4525.s170
Print
Print s5892; "@0F@Q@07@uit"
Print s5892; "> ";
Do
17495 s5888 = UCase(InKey(1213417543))
Loop Until InStr("123Q", s5888) > 0
Print s5888
Delay 0.1
Print
Print
If s5888 = "Q" Then
GoTo 18059
End If
17574 Print s5892; "@0D@1.@07@ Invisibility"
Print s5892; "@0D@2.@07@ Speed"
Print s5892; "@0D@3.@07@ Teleport"
Print s5892; "@0D@4.@07@ Mega-Size"
Print s5892; "@0D@5.@07@ Energy Shield"
Print s5892; "@0D@6.@07@ Absorption"
Print
Print s5892; "> ";
Do
17681 s5884 = UCase(InKey(1213417543))
Loop Until InStr("123456", s5884) > 0
Print s5884
Delay 0.1
Print
If s5884 = "1" Then
Func20409(("Invisibility"), s5888)
Else
17789 If s5884 = "2" Then
Func20409(("Speed"), s5888)
Else
17843 If s5884 = "3" Then
Func20409(("Teleport"), s5888)
Else
17897 If s5884 = "4" Then
Func20409(("Mega-Size"), s5888)
Else
17951 If s5884 = "5" Then
Func20409(("Energy Shield"), s5888)
Else
18005 If s5884 = "6" Then
Func20409(("Absorption"), s5888)
End If
End If
End If
End If
End If
End If
18053 Loop
18059 Else
18065 If s65532 = "F" Then
Sub19441
i5908 = i5908 + 1
If i5908 > i5912 Then
i5908 = i5908 - 1
End If
18134 Sub12922
Else
18146 If s65532 = "B" Then
Sub19441
i5908 = i5908 - 1
If i5908 < 1 Then
i5908 = 1
End If
18205 Sub12922
Else
18217 If s65532 = "N" Then
t28_4525.b127 = b5800
t28_4525.b128 = b5799
t28_4525.i94 = t28_4525.i96
t28_4525.b126 = t28_4525.b125
t28_4525.s129 = "N"
t28_4525.b221 = 0
t28_4525.b222 = 0
t28_4525.b223 = 0
t28_4525.b224 = 0
t28_4525.b225 = 0
t28_4525.b226 = 0
t28_4525.b227 = 0
t28_4525.b234 = 0
t28_4525.b237 = 0
t28_4525.b238 = 0
t28_4525.b239 = 0
t28_4525.b248 = 0
t28_4525.o241 = 0
t28_4525.b228 = 0
t28_4525.s233 = "H"
t28_4525.b250 = 0
t28_4525.o242 = 0
t28_4525.b243 = 0
t28_4525.b244 = 0
t28_4525.b245 = 0
t28_4525.o246 = 0
t28_4525.b256 = 0
t28_4525.b229 = 0
t28_4525.o253 = 0
t28_4525.b231 = t28_4525.b232
t28_4525.b247 = 0
t28_4525.b249 = 0
Sub19441
Else
18609 If s65532 = "S" Then
Sub19441
Print "Enter PLAYERNAME to search for: ";
Input s5914
Open ProgPath + "players.dat" For Random As 1 Len = 346 '! This value should probably be replaced with a "SizeOf" expression
18697 For i5908 = 1 To LOF(1) Step 1
Get 1, i5908, t28_4525 '! 346 bytes
If UCase(s5914) = UCase(t28_4525.s30) Then
i5910 = i5908
GoTo 18830
End If
18807 Next
18830 Close 1
If UCase(s5914) <> UCase(t28_4525.s30) Then
Print "@0C@That player could not be found."
Delay 1.5
i5908 = 1
End If
18887 Else
18893 If s65532 = "R" Then
Sub19441
Print "Enter REAL NAME of player to search for: ";
Input s5918
Open ProgPath + "players.dat" For Random As 1 Len = 346 '! This value should probably be replaced with a "SizeOf" expression
i5908 = 1
18988 For i5908 = 1 To LOF(1) Step 1
Get 1, i5908, t28_4525 '! 346 bytes
If UCase(s5918) = UCase(t28_4525.s0) Then
i5910 = i5908
GoTo 19117
End If
19094 Next
19117 Close 1
If UCase(s5918) <> UCase(t28_4525.s0) Then
Print s5892; "That caller could not be found."
Delay 1.5
i5908 = 1
End If
19176 Else
19182 If s65532 = "D" Then
Print s5892; "@0C@DELETE THIS PLAYER FROM THE GAME? (Y/N) ";
Do
19214 s5884 = UCase(InKey(1213417543))
Loop Until InStr("YN", s5884) > 0
Print s5884
Delay 0.1
Print
If s5884 = "Y" Then
t28_4525.s0 = "DELETED"
t28_4525.s30 = "DELETED"
Sub19441
Print
Print s5892; "@07@The player has been deleted. Make sure to use the Team Editor"
Print s5892; "and delete this player from any team that he/she may have joined."
Sub20010
End If
19355 Else
19361 If s65532 = "E" Then
Sub19441
GoTo 19402
GoTo 19396
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
19396 Loop
End If
19402
End Sub
'! Called 7 times
Sub Sub19441
Open ProgPath + "players.dat" For Random As 1 Len = 346 '! This value should probably be replaced with a "SizeOf" expression
Put 1, i5910, t28_4525 '! 346 bytes
Close 1
End Sub
'! Called 2 times
Sub Sub19500
If Exists(ProgPath + "mutants.cfg") = -1 Then
Open ProgPath + "mutants.cfg" For Input As 3
Input #3, s5795
Input #3, b5799
Input #3, b5800
Input #3, i5801
Input #3, b5803
Input #3, s5804
Input #3, s5808
Input #3, b5812
Input #3, s4497
Input #3, s4501
Input #3, s4505
Input #3, s4509
Input #3, s4513
Input #3, s4517
Input #3, s4521
Close 3
Else
19679 s5795 = "000000"
b5799 = 15
b5800 = 3
i5801 = 2500
b5803 = 15
s5804 = "Scott Bradbury"
s5808 = MakeWild.SysopName
b5812 = 15
s4497 = s4497
s4501 = "ROSTER.BBS"
s4505 = "EXPERT.BBS"
s4509 = "CHARISMA.BBS"
s4513 = "TEAMLIST.BBS"
s4517 = "ELITE.BBS"
s4521 = "CLASSES.BBS"
o5813 = 0
End If
19815
End Sub
'! Called 1 time
Sub Sub19818
Open ProgPath + "mutants.cfg" For Output As 3
Print #3, s5795
Print #3, b5799
Print #3, b5800
Print #3, i5801
Print #3, b5803
Print #3, s5804
Print #3, s5808
Print #3, b5812
Print #3, s4497
Print #3, s4501
Print #3, s4505
Print #3, s4509
Print #3, s4513
Print #3, s4517
Print #3, s4521
Print #3, o5813
Close 3
End Sub
'! Called 11 times
Sub Sub20010
Dim b65535 As Byte
Print
Print Tab(1); "@08@-Any Key-";
20038 Do While InKey(1213417543) = ""
Loop
20065 b65535 = CsrLin
Locate b65535, 1
ClrEOL
End Sub
'! Called 1 time
Function Func20089(s65534 As String) As String
If s65534 = "0" Then
s5862 = "Extremely Cold"
Else
20132 If s65534 = "1" Then
s5862 = "Cold"
Else
20166 If s65534 = "2" Then
s5862 = "Cool and Mild"
Else
20200 If s65534 = "3" Then
s5862 = "Windy"
Else
20234 If s65534 = "4" Then
s5862 = "Rain and Thunderstorms"
Else
20268 If s65534 = "5" Then
s5862 = "Mild"
Else
20302 If s65534 = "6" Then
s5862 = "Sunny & Clear"
Else
20336 If s65534 = "7" Then
s5862 = "Hot"
Else
20370 If s65534 = "8" Then
s5862 = "Hot and Humid"
End If
End If
End If
End If
End If
End If
End If
End If
End If
20398
End Function
'! Called 6 times
Function Func20409(s65534 As String, s65532 As String) As Boolean
If s65532 = "1" Then
t28_4525.s130 = s65534
Else
20459 If s65532 = "2" Then
t28_4525.s150 = s65534
Else
20500 If s65532 = "3" Then
t28_4525.s170 = s65534
End If
End If
End If
20535
End Function
'! Called 1 time
Sub Sub20543
Open ProgPath + "teamfile.dat" For Random As 1 Len = 163 '! This value should probably be replaced with a "SizeOf" expression
Get 1, b5907, t26_5398 '! 163 bytes
Close 1
End Sub
'! Called 13 times
Sub Sub20600
Open ProgPath + "teamfile.dat" For Random As 1 Len = 163 '! This value should probably be replaced with a "SizeOf" expression
Put 1, b5907, t26_5398 '! 163 bytes
Close 1
End Sub